Kod
library(dplyr)
library(plotly)
df <- read.csv('complete.csv')
X <- data.frame()
for(i in distinct(df,awardYear)$awardYear){
new <- df %>% select(awardYear,category) %>%
filter(awardYear<=i) %>%
group_by(category) %>%
summarise(n=n()) %>%
mutate(awardYear = i)
X <- rbind(X,new)
}
fig <- plot_ly(data = X, x=~category, y= ~n, frame = ~awardYear, type = "bar")%>%
layout(title = "Growth in number of Nobel Prize winners by category",
xaxis = list(fixedrange = TRUE,title = "Category"),
yaxis = list(fixedrange = TRUE, title ="Winners by far"),
showlegend = FALSE) %>%
animation_opts( frame = 400,
transition = 400,
easing = "cubic-in-out",
mode = "immediate") %>%
animation_button(x = 0.05, y = 0.05) %>%
animation_slider(currentvalue = list(prefix = "Year: ", font = list(color="blue")))
fig